UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



TITLE 
TYPE 

DURATION 
DESCRIPTION 



AUX. 
. LIBRARY ROUTINE V 7 - 206 



Provide Sets of Random Numbers From 1 to I. 

Complete Program 

(620 + 302N + *5TSp)j Milliseconds 

This routine uses Library Routine T-3 to provide sets of 
random digits* By storing the sequence of numbers wanted 
and selecting individual numbers in a random order pre- 
scribed by V-3 a random set can be generated « 

If the program is started by reading in the program tape, 
the same sequence will be generated each time the number 
N Is the same unless the number at S3 is changed. This 
is now OOF 00900F and can be changed by hand punching. 
After the program has started no two sequences will be 
alike. 

The data tape consists of 

XL SI being an identification number, of k digits 

or less . 
nN n is the upper limit of the sequence wanted. 

n can be no larger than 900. 
jJ j is number of sets wanted of random 
permutations of numbers from 1-n. 

The program has a sum check on it and if punching occurs 
after read in before the data tape is inserted, the program 
tape should be read in again. 

The program tape stops in 2k 009. Insert data tape and 
black switch to start. After completing one problem a 
second one may be done by simply inserting the new data 
tape in the reader and raising the black switch. 



DATE June 29, 19^6 



PROGRAMMED BY 

APPROVED W L $ £,\ 




LOCATION 



10 



! 11 



ORDER 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



3K 

F 

900F 

F 

125F 

F 

98F 

F 

85F 

F 

75F 



00 


9K 


L5 


8S7 


42 


1L 


41 4f 


kl 


( )F 


F5 


1L 


40 


1L 


LO 


9S7 


32 


1L 


41 


IF 


81 4F 


LO S7 


32 


9L 


L4 


S7 


50 


IF 


74 S7 


S5 


F 


40 


IF 


22 


4l 


00 


F 


42 


10L 


L5 


IF 


40 


( )F 


F5 1S7 


4o 


1S7 



£3 



S4 



S5 



S6 



S7 



by 0^2 



by 9 



NOTES Page 1 



V 7 



Constant for V-3 
Begin storage 
Library P-4 
Library V-3 
Constants storage 



Clear storage 



-10 

Read in 
+10 parameters and 

convert* 
xlO 



Save all parameters 



LOCATION" 


ORDER 
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12 


LO 2S7 
36 kL 




been read In? 




13 


kl 1S7 
L5 2F 








Ik 


ko ksj 
ko 6S7 








15 


L5 3F 
kO 5S7 








16 


L5 5F 
kO 3S7 








IT 


F5 4f 
4o 4f 




Generate and store 
Sequence 1-N. 




18 


IA 8S7 
42 19L 








19 


L5 4f 
ko ( )F 


by 18 






20 


LO 4S7 
32 21L 








21 


26 17L 
92 135F 








22 


92 259F 
92 258F 








23 


92 387F 
92 770F 








2k 


92 67F 
92 578F 








25 


92 643F 
92 963F 








26 


92 706F 
92 19^F 








2? 


92 66f 
92 450F 








28 


92 19^F 
92 77OF 








29 


92 835F 

92 19^F 

» 









V-7 



LOCATION 


ORDER 
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30 


92 707F 
L5 3S7 








31 


JO 5F 
50 31L 








32 


26 S5 
92 131F 




To P 4 




33 


92 975F 
92 259F 








34 


92 706F 
92 194F 








35 


92 322F 
92 963F 








36 


92 707F 
F5 1S7 








37 


JO 4F 
50 37L 








38 


26 S5 
92 135F 




To P 4 




39 


92 519F 
41 3F 








40 


92 963F 
50 40L 








41 


26 S6 
67 6S7 




To V 3 




42 


10 IF 
40 F 




Random number 




43 


L3 F 
36 45L 




Is it zero? 




44 


L5 F 
22 45L 








^5 


L5 6S7 
L4 8S7 









V-7 



LOCATION 



46 

^7 
48 

h9 
50 
51 
52 
53 
5^ 

55 

56 

57 

58 

59 

60 

6l 

62 



ORDER 



42 48L 
42 53L 
L4 7S7 
00 20F 
46 53L 

L5 ( )F 

jo 4f 
50 4% 
26 S5 
L5 6S7 
LO 7S7 
42 6S7 
L3 6S7 
36 6lL 
L5 ( )F 
40 ( )F 
L5 53L 
42 5F 
L4 7S7 
40 53L 
L5 5F 
LO 8S7 
LO 6S7 
32 58L 
26 53L 
L5 3F 
40 3F- 
LO S7 
32 38L 
26 40L 
F5 1S7 
40 is? 
LO 5S7 
36 65L 



NOTES 



by 46 



by 48 
by 46 
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v-7 



Lpqation of number 
wanted . 



To P 4 



Are we done? 

Close gap in 
sequence. 



Is this the last 
sequence wanted? 



LOCATION 



ORDER 



63 kl k-F 
L5 kSJ 

6k ko 6S7 

26 17L 

65 4l 1S7 
24 L 

00 75K 
00 F 
00 10F 
00 F 
00 F 
80 F 
00 3F 
00 F 
00 F 
00 F 
00 F 
00 F 
00 F 
00 F 
00 F 

7 00 IF 
00 IF 

8 00 F 
00 Sk 
Nl k-F 
4l 1024F 

00 85K 
Library Routine V-3 

00 98K 
Library Routine P-4 
Sum Check 

2h 9N 
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V-7 



Wait for new data 



Counter 



Number of Parameters 



Problem Number (£,) 



Number of entries (n) 



Number of sequences (j) 



entries left* 



begin storage 



end clearing memory 



